home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tn.d64 / bit superose.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  42 lines
  1. 1 REM SAVE"0:BIT SUPEROSE.C",8
  2. 2 REM ELIZABETH DEAL, BASED ON THE OLD
  3. 3 REM PET SUPEROSE IN MICRO MAG
  4. 4 REM USES FRANK COVITZ'S ROUTINES
  5. 5 POKE55,0:POKE56,96:POKE51,0:POKE52,96
  6. 120 BA=6*16^3:REM BASE ADDRESS
  7. 130 IN=BA:RS=BA+3:CL=BA+6
  8. 140 DR=BA+9:PX=BA+12:MV=BA+15
  9. 145 IFPEEK(BA)*PEEK(BA+1)*PEEK(BA+2)<>76*148*98THENLOAD"0:-VMSUPP.6000.D",8,1
  10. 150 GOTO2000
  11. 155 REM----------
  12. 1010 WX=319:WY=199:HX=319/2:HY=199/2
  13. 1020 Z=99:K=1.25:SC=1024:FF=255
  14. 1030 SYSIN:SYSMV,HX,HY
  15. 1040 SN=2*(null)/SS
  16. 1050 FORTH=0TO2*(null)STEPSN:R=Z*SIN(TH*T)
  17. 1060 IFR>HYGOTO1121
  18. 1070 X=K*R*COS(SX*TH)+HX
  19. 1080 Y=R*SIN(SY*TH)+HY
  20. 1100 SYSVV,X,Y:POKESC,FF-PEEK(SC)
  21. 1120 GETI$:IFI$<>"Q"THENNEXTTH
  22. 1121 POKESC,11
  23. 1122 GETI$:IFI$=""GOTO1122
  24. 1130 SYS(RS)
  25. 1131 PRINT"[147]INPUTS WERE:":PRINT" SX"," SY"," DEN"," T":PRINTSX,SY,SS/180,T
  26. 1134 RETURN
  27. 1140 REM----------
  28. 2000 PRINT"THIS IS FOR EXPERIMENTS...INPUTS AREN'T CHECKED...RERUN ON ERRORS"
  29. 2001 PRINT"SQUARE FLASHES WHEN COMPUTER DRAWS. IT
  30. 2002 [153]"OFTEN RETRACES LINES.
  31. 2003 PRINT"USE Q TWICE TO QUIT AT ANY TIME"
  32. 2004 INPUT"SX             8[157][157][157]";I$:SX=VAL(I$):IFSX<1GOTO2004
  33. 2005 INPUT"SY             2[157][157][157]";I$:SY=VAL(I$):IFSX<1GOTO2005
  34. 2010 INPUT"DENS SS 1-8    2[157][157][157]";I$:SS=VAL(I$):SS=SS*180:IFSS=OGOTO2010
  35. 2020 INPUT"T              4[157][157][157]";I$:T=VAL(I$):IFT<1GOTO2020
  36. 2021 INPUT"L[146]INES P[146]IXELS   L[157][157][157]";I$
  37. 2022 VV=DR:IV=ASC(I$):VV=DR-3*(IV=80)
  38. 2030 GOSUB1010 
  39. 2040 INPUT"MORE   Y[157][157][157]";M$
  40. 2050 IFM$="Y"GOTO2000
  41. 2051 REM----------
  42.